home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / micronet menu (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  809b  |  22 lines
  1. 100 poke53280,0:poke53281,0:poke2,111
  2. 200 dim p$(20),c(20):for n=1 to 7:read p$(n),c(n):next n
  3. 500 print "[147]":print:print "        ";"micronet menu[146]"
  4. 502 for n=1 to 7
  5. 503 poke 646,c(n):print:print "    ";n;"[157].  ";p$(n)
  6. 505 next n
  7. 560 print:print:print "        ";"[156]enter option[146]"
  8. 570 get wa$:if wa$=""then goto 570
  9. 571 wa=val(wa$):if wa<0 or wa>7 then 570
  10. 572 if wa=7 then load "menu",8,1
  11. 600 printchr$(142)"[144]poke157,0:l[207]";chr$(34);p$(wa);chr$(34);",8"
  12. 1000 print"[129]         loading ";p$(wa);"......[144]"
  13. 1010 poke631,19:poke632,13
  14. 1100 poke633,asc("r"):poke634,asc("u"):poke635,asc("n"):poke636,13:poke198,6:end
  15. 2000 data clock,3
  16. 2010 data menu maker,4
  17. 2020 data scrollbasic,5
  18. 2030 data fast formatter,6
  19. 2040 data cosmic cavern,7
  20. 2050 data xeropus,8
  21. 2060 data main menu,9
  22.